Labels:text | screenshot | font OCR: Page 1 File: BP Program: PRICE. INCREASE 11:06:02 07 OCT 1987 0001 *This PICK/BASIC program increases product price by a specified 0002 *percentage if the price has not been increased in the last 60 days. 0003 EQU PRICE TO 7, PDATE TO 8; * Attributes 7 & 8 contain price & date 0004 TODAY=DATE(); * Todays date 3005 OPEN 'PRODUCTS' TO PFILE ELSE STOP 201, 'PRODUCTS' 0006 PRINT 'Enter percentage to increase price by' : ; INPUT RATE 0007 IF NOT(RATE MATCHES ' 2N. 2N' > THEN PRINT 'Illegal Rate'; STOP 0008 EXECUTE 'SELECT PRODUCTS WITH CODE = "005"" 0009 DONE-0 0010 0011 LOOP 0012 READNEXT KEY ELSE DONE=1 UNTIL DONE DO 0013 READ RECORD FROM PFILE, KEY THEN 0014 0015 IF TODAY - RECORD(PDATE> > 60 THEN RECORD(PRICE>=RECORD(PRICE>*(RATE/100) 0016 END RECORD( PDATE>=TODAY 0017 0018 END ELSE 0019 PR ...
(.png)
 (Disc Manufacturing).iso/d13/pop.arc/BP.GX1/BP.png)